home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 11, No. 03 (1990-03)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 11, No. 03 (1990-03)(MindCraft Publishing)(Side A)[a].po
/
SPLIT.S
< prev
next >
Wrap
Text File
|
1996-12-24
|
2KB
|
86 lines
**********************************
* APPLE SPLIT SCREEN SOURCE CODE *
* BY WILLIAM SIMPSON *
* COPYRIGHT(C) 1990 *
* MINDCRAFT PUBL. CORP. *
* CONCORD, MA 01742 *
**********************************
*
* EDITOR ASSEMBLER
*
AMP EQU $3F5
BUF EQU $201
TOP EQU $22
BOTTOM EQU $23
CV EQU $25
CH EQU $24
BASIC EQU $3D0
*
ORG $0300
*
* SET THE & VECTOR AND EXIT
*
LDA #BEGIN
STA AMP+1
LDA #3
STA AMP+2
JMP BASIC
*
* FIND THE COMMAND
* &S SPLIT THE SCREEN
* &T MOVE TO THE TOP WINDOW
* &B MOVE TO THE BOTTOM WINDOW
* &Q QUIT SPLIT SCREEN MODE
*
BEGIN LDA BUF
CMP #$53
BEQ SPLIT
CMP #$54
BEQ T
CMP #$42
BEQ B
CMP #$51
BEQ QUIT
JMP BASIC
*
* SPLIT THE SCREEN AND PUT
* THE CORSOR IN THE TOP
* WINDOW
*
SPLIT LDA #$0D
STA BOTTOM
LDA #$0C
STA CV
LDA #$00
STA TOP
STA CH
JMP BASIC
*
T JMP SPLIT
*
* SET THE BOTTOM WINDOW AND
* PUT THE CURSOR THERE
*
B LDA #$0D
STA TOP
LDA #$18
STA BOTTOM
*
* EXIT IS USED TO SET THE CURSOR
* WHEN LEAVING SPLIT SCREEN
*
EXIT LDA #$00
STA CH
LDA #$17
STA CV
JMP BASIC
*
* RESTORE THE SECREEN TO NORMAL
*
QUIT LDA #$00
STA TOP
LDA #$18
STA BOTTOM
JMP EXIT